0 REM **** STARTZEILE ****
1000 INPUT A$:IF A$=""THEN END
1010 FOR AA=0 TO LEN(A$)-1:POKE 513+AA,ASC(MID$(A$,AA+1,1)):NEXT:POKE 513+AA,0
1020 POKE 11,AA:SYS 830